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Those of you who have tried to reach Bill Badfer and have met 
with either no answer or just an answering machine, Protecto 
extends their deepest apologies. Bill has been transfered to 
a new position within Protecto. Those of you wishing to talk 
to someone about programming problems or needing technical 
assistance can contact Ken Whitmire at 312-695-7446. Do. not 
try and call Bill anymore as he is unavailable. 

Some of you have had questions about the Free club information 
you recieved with your computers. This is an inactive club in 
Nev/ York not The National APF Imagination Club. Only members 
of the National club are eligible for special price discounts 
as outlined in the protecto price sheets. 

Qu estions and a nswers 

Some of you have been wondering how to get a logical "AMD" or 
"OP" function for IF.... THEN statements. Here is one v.-ay to get 
them? 

"AND " 

The logical ".AND" is usually written 
IF J=7 AND 1=6 THEN 500 

which means both J has to be equal to 7 and I has to be equal 
to 6 before the program will jump to line 500, 

The Imagination Machine uses a multiple IF statement to perform 
the same function. 

It looks like this? 

IF j=7 THEN IF 1=6 THICK 500 


I 


"OP '■ 

Tho logical "OP" in usually written 
IF J-? OP 1=6 TPFN 500 

v/hich means either J has to he equal to 7 w I has to be 
equal to 6 in order for the program to jump to line 500. 

The Imafination ^'achine can only check for numbers not 
letters, and this is performed like this' 

IF ( j-7)*(i-6)=o then 500 

which means that if either J is equal to 7 or I is equal 
to 6 the formula will equal 0 and the prorram v/ill jump to 
500. 

*N0TE 

You can not subtract a -character strinf: and fet 0. 

Therefore this method will only work v/ith numbers. 

Some requests have been made for books showing: how to use 
the 6800 machine language . Here are some you may want to 
tryJ 

Motorola 6800 Proframminr Peference yanual 

sources ^'otorola Semiconductor Products 
Box 20912 
Phoenix, AZ 85036 

The 6800 Microprocessor • A Self Study Course with applications 
by Lance Leventhal 

6800 Assembly Lanruage Propramin|F' 

by Lance Leventhal 

sources Osborne & /Associates, Inc. 

P.O. Box 2036 
Berkeley, CA 9^702 
( 415 ) 548-2805 
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Hov/ do you set random musical notes? 

It would be very easy if you could just fet a random number 
between 1 and 7, set a. variable to it, and place a H’USIC 
command in front of it like so'- 
10 '' = ir:T(i:ND(0)*?) + l 
20 HUSIC A 

The reason this doesn't v/ork is that the music function only 
works with a string; variable . (a;'' ) Therefore v/e have to make 
our random number a string: number bet\veen 1 and ?. (ie "5") 
v/e do this like so* 

10 Dir/ A.'i’d) 

20 J^INT(FKD(0)*7)+^i5 
30 J) 

iiO kUSIC AjJ* 

Line 10 dimensions our string variable to be at least 1 
character in length. 

Line 20 g:ets a random number between ^9 and 55 and makes sure 
it is an integier. 

Line 30 makes equal to the string character v/hose ascii 
code is equal to J . If you look on page 21 of the language 
reference guide you will see that J is equal to a number 
between 1 and ? 

Line ^0 simply performs the music function 

Try this program 
10 Dir. A5!-(1) 

20 J-INT(FND(0)*7yt-l 
30 X-INT(RND(0)^"^31)+1 
^10 Y=INT(PinD(0)*15) + l 
50 SKA?3=15 
60 C0L0P=J 
70 PICT X.Y 
80 K=IMT(PND(0)*7)+L9 
90 A$=CHP$(K) 

100 r/usic A$ 


110 GO TO 20 
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20 rem just a box of checkers - 
11 lem no 'kinging' alDowed (yet) 

15 goto 5000: rem branch to mainline 
5000 rem mainline control 

5002 dim cb { 6 , 7 ) : k$ ( 1 ) : rem board mtrx + xtra variables 

5004 poke 8193,60: rem mode set-up 

5010 poke 8194,158: rem inode2; lemve 4 tst/debug 

5015 rem bid shapesthld board:put chkts 

5020 gosub 600:gosub 500: gosub 400 

5025 xa-O :ya-0 :x=0 ;y=0 : lem re-init co-ordinates 

5030 gosub 145: music'15': rem output cursor 

5035 p=2: rem left player 

5040 gosub 300: rem play game 

5045 if k9="l" then 5060: rem play again? 

5050 if p=2 then p=l : goto 5040 
5055 goto 5035: rem left again 

5060 cal 1 17046 :poke 8194,30:poke 40960, 3:poke 4 0 961 , 224 : i em crsr 0 lo-lft 
5065 input, "want to play again? (y/n)",k$ 

5070 if k$="y" then 5010 
50 7 5 St op 

6000 rem variables used by this pgra : 

6001 rem x,y - loop controls, pointers to matrix 'cb' 

6002 rem xa,ya,ra - row/col co-ordinates to shape table 

6003 rem and/or screen map; row additive 

6004 lem sb,sx - start/stop pointers to shape table 

6005 rem sh,sl - hi/lo shape color values 

6006 rem bb ,by ,bg ,br ,yy ,yb ,gb , r b - are shape #'s and 

6007 lera indicate color of shape (color table 0) 

6U08 rem i.e. bb=h] ue/bl ue ; gb=gieen/b] ue; br=blue/red 
599: 

600 rem build shapes 

601 sb=512 : sx=51 9: rem shape tbl starts at loc 512 

602 gr=0:ye=85:bl=170;rd=255: rem grn,yeJo,blu,red 
605 xa='0 : ya=0 : r a=8 irera set additives 

610 for x=lto8: rem 8 shapes 

615 on X gosub 625,630,635,640,645,650,655,660 

620 sh=sb+16 : 5X=sb+7 :next X : rem next block 

625 sh=bl ; si =0 :gosubl 25 :bb=0 ; ret urn 

630 sl=ye-bl:gosuhl25 :by=l : ret urn 

635 si - ( -bl ) tgosubl 25:bg=2:teturn 

640 sl=rd-b] :gosubl 25:br=3:return 

645 sh=ye;sl=0:gosubl25 :yy=4 : ret urn 

6 50 si =bl -ye :gosubl 25 :yb=5 : ret urn 

65 5 sh-gr ;s]-bl :gosubl25:gb-6:retuin 

660 sh=rd:s] =b] -rd:gosubl25:rb"7:return 

499: 

500 rem build board 

501 sh=bh : si =0 : r em start w/ bl u sqr 

505 sb=0 : sx=3 :xa=0 :ya=0 :ra=32 :rem set start, controls 

510 for y=0to5: rem only 6 rows 

515 for x=0to7; rem but 8 cols 

520 gosubl25 : cb (y ,x) =sh :rem init mtrx 

525 if sh=bb then sh=yy: goto535: rem swtch color 

530 sh=bb 

535 xa=xa+4 : next X 

540 Ya=ya+64 :xa=0 :rem re-init 'x' additive 
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545 if sh=bhthen sh=yy;nexty 
550 sh=bb :next y : ret urn 

399 : 

400 rem put checkers on board 

401 ya=0 : xa=0 : ra=32 : r em set r/c additives 

405 sh=bg : si =4 : rem strt w/ grn chkr ; } o-shape is 4 away 
410 for y=0to5:rem only 6 rows this board 
415 for x=0to7step2 
420 if y=0then435 

425 on y goto 430,435,430,435,430,435 
430 if x=0 then x=l:xa=xa+4 

435 gosubi20 ;cb (y ,x ) =sh :rein save ckt id in mtix 
440 xa=xa+8 ;nextx 
445 ya=ya+64 :xa=0 

450 if y=l then y=3 :ya-ya+l 28 : sh«:bi : rem swtch chkr coir 

455 nex t y : ret urn 

299: 

300 rem read playrs move 

305 k$=key5 (p) : if kS=" " I hen30 5 : r em wait 

310 if kS="!"then return:rem back to main 

311 if k$="0"then return 

315 if k5=’''?"then gosuhl60 :gosuhl 00 :gosubl45 ;got o300 :rem rmv chkr 

316 if k5="5"then gosubl65 :gosuhl00 :gosubl45 :got o300 : r em rpl chkr 
320 k=asc ( k? ) -48 :gosuhl00 :rem rmv crsr 

325 on k gosub20a , 205 , 21 5 , 225 , , 235 , 240 , 245 , 255 

326 rem test overflow 

330 if x>7 if k=9then ya=ya+64 :y=y+l 
335 if x>7 if k=3then ya=ya-64 :y=y-l 
340 if x>7thenx=7:xa=28:music"/7/7" 

345 if x<0 if k=7then ya=ya+64 :y=y+l 
350 if x<0 if k=lthen ya=ya-64 :y=y-l 
3 55 if x<0t henx=0 :xa=0:music"/l/l" 

360 if y>5 if k=3 then xa=xa-4 :x®x-l 

365 if y>5 if k=l then xa=xa+4 ;x=x+l 

370 if y>5 then y=5 :ya=320 :music"*5*5" 

375 if y<0 if k=9 then xa=xa-4 :x=x-l 

380 if y<0 if k-7 then xa=xa+4 :x=x+l 

385 if y<0 then y=0 :ya=0 :music" 77" 

390 gosubl45:goto300 
199: 

200 rem adjust x/y additives 

201 x=x-l :xa=xa-4 

205 y=y+l :ya=ya+64 :return 

215 x=x+l :xa=xa+4 

220 y=y+l :ya=ya+64 : return 

225 x=x-l :xa=xa-4 : ret urn 

235 x=x+l :xa=xa+4 : return 

240 x = x-l ;xa=xa-4 

24 5 y=y-l :ya=ya-64 : return 

255 x=x+l :xa=xa+4 

260 y=y-l :ya=ya -64: return 

100 rem most frequently called sub-rtns folio 
102 rem set hi/lo shape from mtrx 
105 sh=ch(y,x) 

110 if sh>=by if sh<yy then s]=4:gotol20 
115 sl=0 
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sb=l ; sx“2 : r em crsr/chkr size 

fo: i =sb to sx ; rem put obj on brd/scrn 

pokei+xa+ya , sh : rem put hi shape 

pokei+xa+ya+ra ,sh+sl :rera put lo shape 

next i : return 

sh=by : si =4 ;rein ylo crsr 

if cb (y ,x ) -yyt hen sh=yb : si = (-4 } : r em bl u crsr 
gosubl20 : ret urn 

cb ( 6 , 0 ) =cb {y ,x ) :cb (y ,x) -0 : ret urn : rem save chkr 
ch {y ,x) =cb { 6 , 0 ): return : rem rplc chkr 


t. 
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instructions : 


checkers facilit y 

submitted by Don Schmidt 

Neptune, N. J. 


1, load program, type 'run,' Return Key. 

a) program builds board, puts checkers on board, and a 
yellow cursor. 


2. ' left' starts. 


3. digits 1-9 (except 5) control movement. ^ 

a) move cursor to desired square, hit 'c'^' key to 'mark,' 
and remove checker. 

b) move cursor to desired square, hit '5' to put 'marked' 
checker at this new location. If opponent's player 
was 'jumped,' position cursor on 'jumped checker' and 
hit '5' again to remove the checker. 

4. Hit 'O' (zero) to switch players. 

5. Hit 'en' to end game. 




if 


7 sf 9 
-4 0 5 

1 2 3 





COMPUTER PRODUCTS 


LIST 

PRICE 


♦FACTORY 

PRICE 


Product Catalog 
and Price List 


JANUARY 1, 1982 

23K APF IM-1 COMPUTER. Includes 14,000 Bytes ROM with BASIC built in, 

9000 Bytes User RAM, Color, Sound, Professional 53 keyboard, Two 
controllers, Two 10 key numeric pads, High speed cassette, A. C. adapter, 
R. F. Modulator, T.V. switch box. Accepts TAPE-DISK-PLUG in cartridges. 

It is plug in expandable. 90 days parts and labor warranty, Owners guide, 
BASIC language manual. Beautiful Black & White Console Case. 

23K APF IM-1 COMPUTER FACTORY PACK . Everything you get for $239.00 plus 
"BASIC TUTOR program" on two tape cassettes with manual to teach you how 
to cut programming time, "PROGRAMMING AND TECHNICAL ASSISTANCE MANUAL" 
for Graphics, Machine Language-Memory maps. Schematics and Parts List. 

Also you get the popular "SPACE DESTROYERS Program." 

BB~1 BUILDING BLOCK INTERFACE . This plug in interface allows you to use 
the 23K IM-1 computer to its fullest degree. It contains 4 universal 
ports to add: RAM memory, Printers, Telephone Modem, and Floppy Disk 
drives. (5.00 shipping) 

8K-RAM EXPANSION . Plug into interface port to increase your RAM memory 
8192 Bytes. (3.00 shipping) 

SI— 232 SERIAL INTERFACE . Plug in to interface port to connect printers 
and telephone modems. (3.00 shipping) 

MX-80 EPSON LINE PRINTER . Deluxe quality: Impact dot matrix-bi— direc- 
tional, 40-80-66 132 columns-uses regular paper. Includes serial port. 
(20.00 shipping) 

TM-I50 TELEPHONE MODEM . Best quality: Transmit receive full duplex, 
switches! Originate-of f-answer . (4.00 shipping) 

FI-100 DISK INTERFACE . Plug into interface port - allows you to 
connect the floppy disk drive. ($3.00 shipping) 

D-lOO MINI FLOPPY DISK DRIVE . Plugs into interface - has its own 
power supply and controller - uses no RAM memory, give you 72,000 
Bytes of additional data storage, plus instant loading and accessing 
of data. (7.50 shipping) 


$599.00 $239.00 

698.00 289.00 

199.00 79.50 

129.00 79.50 

149.00 79. ib 

726.00 499.00 

199.00 129.00 

149.00 79.50 

599.00 399.00 


PROGRAMMING AND LANGUAGE AIDS 

BASIC TUTOR. This program includes two cassette tape programs with a 

243 page manual - Teaches you how to use the simplified Level II BASIC 
cuts programming time - a must for beginners and professionals. 

PROGRAMMING AND TECHNICAL ASSISTANCE MANUAL . 100 pages, graphics, memory 
maps, machine language, schematics, and parts list. 

6800 MACHINE LANGUAGE EDITOR AND ASSEMBLER . This disk program is used to 
create source code file - this file is then used as the assembler - 
simplifies entry or editing, adding, deleting, change in lines, etc. 

6800 MACHINE LANGUAGE DISASSEMBLER . This disk enhances creation, debugging, 
and recording of machine language. 

DISK COPIER PROGRAM . Allows you to make duplicate copies of all disk 
programs written for the APF-IM-1. 

^NATIONAL COMPUTER CLUB MEMBERSHIP . Allows special discount prices - 
programming assistance-new developraents-program exchange-factory sponsored. 


FACTORY **CLUB 

PRICE PRICE 

49.95 29.95 

19.95 14.95 

59.95 29.95 

19.95 14.95 

19.95 9.95 

15.00 


We ship C.O.D., Honor Visa and 
MASTER CARDS 

♦Add $15.00 for shippping - if 
C.O.D., add $5.00 more. 

♦♦Add $3.00 for postage - if 
C.O.D., add $2.00 more. 



ENTERPRIZES (FACTORY - DIRECT RELIABILITY! 

BOX 550, BARRINGTON, ILLINOIS 60010 - Phone 312/382-5244 to order 


MANAGEMENT PROGRAM TAPES 

ELECTRONIC FILES This is a computer filing system that allovs you to 

keep track of names, addresses, and other records. 

BAR CHARTS Color charts for comparisons, year to year category by 
category - See your situation at a glance! 

TYPING TUTOR Learn typing at your own speed-unique program-Computer 
designs and changes to fit your ability. 

CHECK BOOK BUDGET MANAGER Faster way to balance your check book- 
Balance your budget - Keep tax records, etc! 

BUDGET MANAGER Day by day, week by week, 3 categories, including food, 
medical, automotive ~ even summary reports. 

PERSONAL BUSINESS MACHINE Calculate loans, interest, principle payments, 
loan payments, etc. 

BILLBOARD Great for creating messages in sound, color, and graphics with 
a beautiful display. 

SPACE SIZE AND SURFACE GUIDE Great for home improvements, figure your 
material needs - How much Paint - Carpeting - Fertilizer, etc. 

MATH TUTOR Great for improving math skills at any age level, based on 
personal ability - a private tutor with lots of fun. 

THE WORD FACTORY A spelling game that’s fun - spell name of object 
pictured - great to improve your kids spelling skill and adult to! 

SPELLING DUEL Challenging and educational. Great fun with combination 
spelling and crossword game! 

JUMBLED UP THINGS Create words from jumbled up letters against the clock - 
Great educational program to improve your memory. 

PERCEPTION Learning game - Two players any level compete - Improves your 
ability to solve problems. 

ARTIST AND EASEL Great color art program for those who like to paint, 
doodle - Save your masterpiece - Use your imagination. 

MUSIC COMPOSTER Practice on keyboard, select key and tempo, write a tune 
and record it. 

SPACE DESTROYERS The most popular space game played - Hold off the 
invaders , save the earth from destruction ! 

GAME CARTRIDGES 

HANGMAN Tic-Tac-Toe, Doodle. Tvjo competitive games, plus the electronic 

art of Doodle. 

U « P»0 . Shoot-a-Lot, Sea Monsters, Break-it-Down. Two great adventures in 
space and the deep, and two challenging carnival games. 

SHOOTING GALLARY Brickdown— it takes smart shooting to get all bricks, and 
a steady aim. 

PINBALL Blockout, Dungeon Hunt, Electronic flippers and tricky ball speed 
changes in pinball. In Dungeon, search and score. 

CASINO Roulette, Keno, Slot Machine. All games are played by the real 
Las Vegas rules. Even has the authentic sounds of the casino, too! 

BLACK JACK Great practice! You'll really clean up at the real thing! 

Smart decisions, not always luck, determine if you beat the machine. 

BASEBALL THE GREAT American pastime can still be great - even when the 
weather isn't. 

BOXING Features 2 boxers battling toe to toe like Dempsey and Firpo! 

6 variations . 

BACKGAMMON This ancient game has never been more popular - and it really 
comes to life in all the colors of your TV screen. 

CATENA Surround your opponent, but watch out for the last minute 
reverses 

WARRANTY - 90 DAYS PARTS AND LABOR If unit fails within 90 days of purchase, 
send unit and sales receipt prepaid via United Parcel Service to PROTECTO 
ENTERPRIZES at address shown. We will ship you a replacement unit within 48 
hours of receipt prepaid. 

SERVICE MANUAL Detailed service instructions and pictures for those who 
want to service their computer. 


FACTORY **CLUB 
PRICE PRICE 


$ 29.95 

$ 19.95 

19.95 

14.95 

29.95 

19.95 

29.95 

19.95 

19.95 

14.95 

29.95 

19.95 

19.95 

14.95 

29.95 

19.95 

29.95 

19.95 

19.95 

14.95 

19.95 

14.95 

29.95 

19.95 

19.95 

14.95 

19.95 

14.95 

19.95 

14.95 

29.95 

19.95 

FACTORY 

PRICE 

**CLUB 

PRICE 

$ 19.95 

14.95 

19.95 

14.95 

19.95 

14.95 

19.95 

14.95 

19.95 

14.95 

19.95 

9.95 

19.95 

14.95 

19.95 

14.95 

19.95 

14.95 

19.95 

14.95 

19.95 

14,95 


NATIONAL "IMAGINATION" COMPUTER CLUB 


(FACTORY SPONSORED) 
1982 

MEMBERSHIP APPLICATION 


Expires 12-31-82 

PURPOSE: KEEP OWNERS AND PROSPECTIVE OWNERS INFORMED ON A NATIONAL BASIS ABOUT 
THE FANTASTIC CAPABILITIES OF THE NEW 23K APF IM-1 COMPUTER 

INFORMATION FURNISHED: LATEST PRODUCT DEVELOPMENTS TO ENHANCE AND EXPAND THE 

CAPABILITIES OF THE NEW 23K APF IM-1 COMPUTER. KEEPING 
UP WITH LATEST DEVELOPMENTS AND PROBLEMS FROM ALL SOURCES. 

OWNER EXPERIENCES: BUGS - IMPROVEMENTS - EXPANSION IDEAS - PROGRAM EXCHANGE ETC. 


APPLICANT 

NAME STREET ADDRESS 

CITY S TATE^ 

PHONE NO. 

INCLUDE ANNUAL FEE $15.00. MAKE CHECK PAYABLE TO JOE BADGER. NICC (NATIONAL "IMAGINATION’' 
COMPUTER CLUB) 


AS A CLUB MEMBER YOU WILL BE ENTITLED TO A SPECIAL CLUB PRICE ON MANY ITEMS, THIS 
CU^ PRICE WILL NOT BE NO LESS THAN 157. ON ALL PROGRAMS. YOUR SAVINGS SHOUID EASILY 
PAY YOUR 1982 CLUB MEMBERSHIP FEE. 

A MONTHLY COMPUTER CLUB LETTER IS ISSUED, STARTING FEBRUARY 1982. IF NEW INFORMATION 
IS IMPORTANT ENOUGH WE WILL ISSUE MORE FREQUENT LETTERS. 


MAIL TO: CLUB PRESIDENT 

JOE BADGER 
515 W. SHADY LANE 
BARRINGTON, IL 60010 
PHONE: 312/382-5244 


t O 

(Over) 


Other Special News: 

Protect© Enterprizes apologizes for delays in shipping orders. Their 
objective is alv/ays to ship the following day after an order is placed 
and to give two to seven days delivery on phone orders anywhere in the 
USA. 

The problem on delayed orders v;as caused when the 28 below zero weather 
hit the New York area. It froze the water main on the third floor of 
the warehouse where the 23K IM-1 computers and peripherals were stored 
on the first floor. This completely flooded the first floor and ruined 
all the computers and peripherals. We had to bring in all new merchan- 
dise to replace the computers causing a 60 to 90 day delay. At the 
same time v;e sold out all the computers (several thousand) we planned 
for this sale! (We planned this sale for six months and sold out in 
30 days.) 

We are now shipping all orders. We are shipping about two weeks later 
than we promised. We still have not been able to get any peripherals 
and do not expect to be able to ship peripherals back orders before 
June 1, 1982. 

We do have all the programs in stock we show on our price list as they 
were stored in another warehouse and were not affected by the flood. 
There are a lot of good programs available from other firms, and we 
will advise club members of these programs in future club letters. 

So please have patience . We are dedicated to giving APF IM-1 owners 
the best possible service and continued program support . 


P. S. U/tM&to P«otf-/eaiMS A<u<3 

To Ci-oA ( ' 


1 1 . 


